home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu309.dms / pu309.adf / Calculations / DrawCircle (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-09-29  |  389b  |  21 lines
  1. ' DrawCircle
  2. ' Test program to draw circles or ellipses
  3. ' A C Hewat    23rd March 1989
  4.  
  5. ' Refere to page 8-32 of Basic Manual
  6.  
  7. Loop:
  8.  
  9. CLS
  10. 'INPUT "start"; begin
  11. 'INPUT "end"; finish
  12. 'INPUT "aspect"; asp
  13.  
  14. radius = 55
  15. aspect = 0.1
  16. WHILE aspect < 20
  17.   CIRCLE (160,60),radius,,,,aspect
  18.   aspect = aspect*1.4
  19. WEND
  20.  
  21.